Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/error_hn/rdblib/rbprobrp.frm

Visual Basic Form | 1995-04-09 | 14.1 KB | 455 lines

VERSION 2.00
Begin Form RBProbRpt
BackColor       =   &H00FFFFFF&
Caption         =   "Problem Report Form"
ClientHeight    =   4020
ClientLeft      =   1095
ClientTop       =   1485
ClientWidth     =   7365
Height          =   4425
Icon            =   RBPROBRP.FRX:0000
Left            =   1035
LinkTopic       =   "Form1"
ScaleHeight     =   4020
ScaleWidth      =   7365
Top             =   1140
Width           =   7485
Begin TextBox TxtErrMsg
BackColor       =   &H00FFFFFF&
Height          =   555
Left            =   1440
MultiLine       =   -1  'True
TabIndex        =   31
Tag             =   "Enter the error message created by Visual Basic"
Top             =   5580
Width           =   8055
Begin CommonDialog CMDialog1
Left            =   9060
Top             =   6120
Begin TextBox TxSystem
BackColor       =   &H00FFFFFF&
Height          =   315
Left            =   1920
TabIndex        =   28
Tag             =   "Enter the name of the system that had the problem"
Top             =   1320
Width           =   3135
Begin TextBox TxVer
BackColor       =   &H00FFFFFF&
Height          =   315
Left            =   6600
TabIndex        =   27
Tag             =   "Enter the version number of the system you are using"
Top             =   1320
Width           =   2835
Begin SSCommand BtnSelPrtr
Caption         =   "Select Printer"
Height          =   315
Left            =   540
TabIndex        =   26
Top             =   6180
Width           =   2850
Begin Frame Frame3
Caption         =   "Describe the function being performed, the actions leading up to the error and the problem that occurred"
ForeColor       =   &H000000FF&
Height          =   1875
Index           =   0
Left            =   120
TabIndex        =   25
Top             =   3600
Width           =   9375
Begin TextBox TxtProblem
Height          =   1515
Left            =   60
MultiLine       =   -1  'True
ScrollBars      =   2  'Vertical
TabIndex        =   13
Tag             =   "Enter the description of the problem and the actions leading up to the problem"
Top             =   240
Width           =   9255
Begin Frame Frame2
Caption         =   "Effect Of Problem"
Height          =   915
Left            =   120
TabIndex        =   24
Top             =   2640
Width           =   9375
Begin TextBox Text1
BackColor       =   &H00FFFFFF&
Height          =   315
Index           =   4
Left            =   2400
TabIndex        =   12
Tag             =   "Enter the description of the other effect of this problem"
Top             =   540
Width           =   6855
Begin CheckBox Check1
Caption         =   "Other (Please Specify)"
Height          =   375
Index           =   4
Left            =   120
TabIndex        =   11
Tag             =   "Check this box if there is some other effect with this problem"
Top             =   480
Width           =   2295
Begin CheckBox Check1
Caption         =   "Can Use System, But Functionality Is Limited"
Height          =   225
Index           =   3
Left            =   4500
TabIndex        =   10
Tag             =   "Check this box if you can use the system, but the functionality of the system is limited because of this problem"
Top             =   240
Width           =   4575
Begin CheckBox Check1
Caption         =   "Can't use this function"
Height          =   225
Index           =   2
Left            =   2040
TabIndex        =   9
Tag             =   "Check this box if you can't use this function because of the problem"
Top             =   240
Width           =   2295
Begin CheckBox Check1
Caption         =   "Can't Use System"
Height          =   225
Index           =   1
Left            =   120
TabIndex        =   8
Tag             =   "Check this box if you can't use the system because of this problem"
Top             =   240
Width           =   1875
Begin Frame Frame1
Caption         =   "Type of Problem"
Height          =   915
Left            =   120
TabIndex        =   23
Top             =   1680
Width           =   9375
Begin CheckBox Check1
Caption         =   "Problem is Repeatable (Consistent)"
Height          =   255
Index           =   0
Left            =   5880
TabIndex        =   5
Tag             =   "Check this box if the problem is repeatable (occurs consistently)"
Top             =   240
Width           =   3375
Begin TextBox TxtTypeProb
BackColor       =   &H00FFFFFF&
Height          =   285
Left            =   2400
TabIndex        =   7
Tag             =   "Enter the description of the type of problem"
Top             =   510
Width           =   6855
Begin OptionButton OptTypeProb
Caption         =   "Other (Please Specify)"
Height          =   255
Index           =   2
Left            =   120
TabIndex        =   6
Tag             =   "Select this option if some other type of problem occurred"
Top             =   480
Width           =   2295
Begin OptionButton OptTypeProb
Caption         =   "System Didn't Work As Expected"
Height          =   255
Index           =   1
Left            =   2700
TabIndex        =   4
Tag             =   "Select this option if the system didn't work as expected"
Top             =   240
Width           =   3195
Begin OptionButton OptTypeProb
Caption         =   "System Ended Abnormally"
Height          =   195
Index           =   0
Left            =   120
TabIndex        =   3
Tag             =   "Select this option if the system terminated abnormally"
Top             =   240
Width           =   2535
Begin SSPanel cmsg
Align           =   2  'Align Bottom
Alignment       =   1  'Left Justify - MIDDLE
BevelInner      =   1  'Inset
FloodShowPct    =   0   'False
ForeColor       =   &H00FF0000&
Height          =   315
Left            =   0
TabIndex        =   20
Top             =   3705
Width           =   7365
Begin SSCommand BtnCancel
Caption         =   "Exit"
Height          =   315
Left            =   6180
TabIndex        =   15
Top             =   6180
Width           =   2850
Begin SSCommand BtnPrint
Caption         =   "Print Problem Report"
Height          =   315
Left            =   3360
TabIndex        =   14
Top             =   6180
Width           =   2850
Begin SSPanel Panel3D1
Align           =   1  'Align Top
BackColor       =   &H00FFFFFF&
Caption         =   "Problem Report Form"
Font3D          =   1  'Raised w/light shading
FontBold        =   -1  'True
FontItalic      =   0   'False
FontName        =   "MS Sans Serif"
FontSize        =   18
FontStrikethru  =   0   'False
FontUnderline   =   0   'False
ForeColor       =   &H00FF0000&
Height          =   435
Left            =   0
TabIndex        =   21
Top             =   0
Width           =   7365
Begin TextBox Text1
BackColor       =   &H00FFFFFF&
Height          =   315
Index           =   2
Left            =   6600
TabIndex        =   2
Tag             =   "Enter the name of the contact person"
Top             =   960
Width           =   2835
Begin TextBox Text1
BackColor       =   &H00FFFFFF&
Height          =   315
Index           =   1
Left            =   1920
TabIndex        =   1
Tag             =   "Enter the name of your organization"
Top             =   960
Width           =   3135
Begin TextBox Text1
BackColor       =   &H00FFFFFF&
Height          =   315
Index           =   0
Left            =   1920
MaxLength       =   50
TabIndex        =   0
Tag             =   "Enter the name of the person who is reporting the problem"
Top             =   540
Width           =   4575
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Error Message"
ForeColor       =   &H000000FF&
Height          =   195
Index           =   7
Left            =   120
TabIndex        =   33
Top             =   5820
Width           =   1230
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Visual Basic"
ForeColor       =   &H000000FF&
Height          =   195
Index           =   6
Left            =   120
TabIndex        =   32
Top             =   5580
Width           =   1290
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "System..................."
ForeColor       =   &H00000000&
Height          =   195
Index           =   5
Left            =   120
TabIndex        =   30
Top             =   1440
Width           =   1755
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Version..........."
ForeColor       =   &H00000000&
Height          =   195
Index           =   3
Left            =   5160
TabIndex        =   29
Top             =   1380
Width           =   1305
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "On"
ForeColor       =   &H00000000&
Height          =   195
Index           =   4
Left            =   6600
TabIndex        =   22
Top             =   600
Width           =   255
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Problem Reported By"
ForeColor       =   &H000000FF&
Height          =   195
Index           =   2
Left            =   60
TabIndex        =   19
Top             =   600
Width           =   1800
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Contact Person"
ForeColor       =   &H00000000&
Height          =   195
Index           =   1
Left            =   5160
TabIndex        =   18
Top             =   1020
Width           =   1320
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00FFFFFF&
Caption         =   "Organization............"
ForeColor       =   &H00000000&
Height          =   195
Index           =   0
Left            =   60
TabIndex        =   17
Top             =   1080
Width           =   1800
Begin Label RBDateTime
BackColor       =   &H00FFFFFF&
BorderStyle     =   1  'Fixed Single
Caption         =   "Date - Time"
Height          =   315
Left            =   6960
TabIndex        =   16
Top             =   540
Width           =   2535
Option Explicit
Dim RB_Svframeheight As Integer
Dim RB_Svtextheight As Integer
Dim RB_SvErrMsgTop As Integer
Dim iFirstTry As Integer        ' Indicates if first try to print - check for
                                ' missing fields only done on first try
Sub BtnCancel_Click ()
    If RB_LogFileOpen Then
        RB_TblErrorLog![User Name] = RB_UserName
        RB_TblErrorLog![Function Description] = TxtProblem.Text
        If OptTypeProb(0) = True Then
            RB_TblErrorLog![Type Of Problem] = OptTypeProb(0).Caption
        ElseIf OptTypeProb(1) = True Then
            RB_TblErrorLog![Type Of Problem] = OptTypeProb(1).Caption
        Else
            RB_TblErrorLog![Type Of Problem] = TxtTypeProb.Text
        End If
    End If
    Unload RBProbRpt
End Sub
Sub BtnPrint_Click ()
    Dim msg As String
    If iFirstTry Then
        iFirstTry = False
        If Text1(0).Text = "" Or TxtProblem.Text = "" Or TxtErrMsg = "" Then
            Beep
            msg = "You have not completed all of the required fields indicated by RED labels.  "
            msg = msg + "These fields are required to research and resolve the error.  "
            msg = msg + "Please fill them in now."
            MsgBox msg, 0, "Missing Required Fields!"
            Exit Sub
        End If
    End If
    mousepointer = HOURGLASS
    BtnPrint.Visible = False
    BtnCancel.Visible = False
    BtnSelPrtr.Visible = False
    cmsg.Visible = False
    RB_Svframeheight = Frame3(0).Height
    RB_Svtextheight = TxtProblem.Height
    RB_SvErrMsgTop = TxtErrMsg.Top
    TxtErrMsg.Top = cmsg.Top - TxtErrMsg.Height - 100
    Label1(6).Top = TxtErrMsg.Top
    Label1(7).Top = Label1(6).Top + Label1(7).Height
    Frame3(0).Height = TxtErrMsg.Top - Frame3(0).Top - 100
    TxtProblem.Height = Frame3(0).Height - 300
    RBProbRpt.Refresh
    DoEvents
    mousepointer = HOURGLASS
    RBProbRpt.PrintForm
    mousepointer = HOURGLASS
    RBScrn.Show MODAL
    RBErrFrm.WindowState = NORMAL
    RBProbRpt.WindowState = MAXIMIZED
    RBProbRpt.Visible = True
    Frame3(0).Height = RB_Svframeheight
    TxtProblem.Height = RB_Svtextheight
    TxtErrMsg.Top = RB_SvErrMsgTop
    Label1(6).Top = TxtErrMsg.Top
    Label1(7).Top = Label1(6).Top + Label1(7).Height
    BtnPrint.Visible = True
    BtnCancel.Visible = True
    BtnSelPrtr.Visible = True
    cmsg.Visible = True
    BtnCancel.SetFocus
    RBProbRpt.Refresh
    mousepointer = DEFAULT
End Sub
Sub BtnSelPrtr_Click ()
    CmDialog1.DialogTitle = "Problem Report Printer Setup"
    CmDialog1.PrinterDefault = True
    CmDialog1.Flags = PD_PRINTSETUP
    CmDialog1.Action = 5
End Sub
Sub Check1_GotFocus (Index As Integer)
    cmsg.Caption = Check1(Index).Tag
End Sub
Sub Check1_LostFocus (Index As Integer)
    cmsg.Caption = ""
End Sub
Sub Form_Load ()
    RBDateTime.Caption = Format$(Now, "MM/DD/YY - HH:MM:SS")
    Text1(0).Text = RB_UserName
    iFirstTry = True
    On Error Resume Next
    txsystem.Text = rb_systemname
    txver.Text = rb_version
    On Error GoTo 0
End Sub
Sub OptTypeProb_GotFocus (Index As Integer)
    cmsg.Caption = OptTypeProb(Index).Tag
End Sub
Sub OptTypeProb_LostFocus (Index As Integer)
    cmsg.Caption = ""
End Sub
Sub Text1_GotFocus (Index As Integer)
    Text1(Index).BackColor = BLUE
    Text1(Index).ForeColor = WHITE
    cmsg.Caption = Text1(Index).Tag
End Sub
Sub Text1_LostFocus (Index As Integer)
    Text1(Index).BackColor = WHITE
    Text1(Index).ForeColor = BLACK
    cmsg.Caption = ""
End Sub
Sub TxtProblem_GotFocus ()
    TxtProblem.BackColor = BLUE
    TxtProblem.ForeColor = WHITE
    cmsg.Caption = TxtProblem.Tag
End Sub
Sub TxtProblem_LostFocus ()
    TxtProblem.BackColor = WHITE
    TxtProblem.ForeColor = BLACK
    cmsg.Caption = ""
End Sub